#!/usr/bin/perl 
my @numbers;
while(<>){
    push @numbers, split /\D+/,$_;
}
my @result = reverse sort{$a <=> $b} @numbers;
print $result[0]."\n";
